From a1e73248826a8ed158323bc9d511fea02ec7c5c0 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 28 Nov 2000 22:32:21 +0000 Subject: [PATCH] Update from author. --- lisp/hi-lock.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 4d4d978a133..697cfc52aca 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -119,8 +119,7 @@ calls." :group 'hi-lock-interactive-text-highlighting) (defface hi-yellow - '((((background dark)) - (:background "yellow" :foreground "black")) + '((((background dark)) (:background "yellow" :foreground "black")) (t (:background "yellow"))) "Default face for hi-lock mode." :group 'hi-lock-faces) @@ -478,7 +477,7 @@ Optional argument END is maximum excursion." (interactive) (font-lock-unfontify-buffer) (cond - (jit-lock-mode nil) + (jit-lock-mode (jit-lock-refontify)) ;; Need a better way, since this assumes too much about lazy lock. (lazy-lock-mode (let ((windows (get-buffer-window-list (current-buffer) 'nomini t))) @@ -528,5 +527,3 @@ Optional argument END is maximum excursion." (provide 'hi-lock) ;;; hi-lock.el ends here - - -- 2.30.2